﻿Public Class clsMstJL
    Public Function getProdInfoListByMstTypeAndMstValue(mst_type As String, mst_value As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_mst_jl WHERE 1=1 and mst_type = ? and mst_value = ?"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, mst_type, mst_value)
        Return dt
    End Function
    Public Function getProdInfoListByMstType(mst_type As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_mst_jl WHERE 1=1 and mst_type = ?"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, mst_type)
        Return dt
    End Function
End Class
